home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 4 / CU Amiga Magazine's Super CD-ROM 04 (1996)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1996-11].iso / magazine / psion / apps2 / graph.lzx / graph.opo / graph.txt
Text File  |  1993-05-12  |  8KB  |  480 lines

  1. OPLObjectFile**
  2. LOC::O:\GRAPH.OPLAO
  3. FLAG%
  4. RANGE
  5. FUNC1$
  6. FUNC2$
  7. FUNC3$
  8. ARRAY
  9. PROCG
  10. GOSUBX
  11. sin(Q)
  12. cos(Q)
  13. sin(Q)*sin(Q*4)
  14. OnOFO
  15. OnOFO
  16. LRFSCXIOEDNZPVKT
  17. Graphs+
  18. RangesOR+    FunctionsOF+
  19. ShowOS+
  20. ClearOC+
  21. InfoOI
  22. Points+
  23. Plot PointsOO+
  24. Edit PointsOE+
  25. Translate PointsOT+
  26. Polynomial Graph FitOP+
  27. Linear Graph FitOL+
  28. Evaluate F(Q)OV
  29. Maths+
  30. Runge-KuttaOK+
  31. Newton RaphsonON+
  32. Sims EquationsOZ+
  33. DeterminantsOD
  34. Special+
  35. ExitOX
  36. gosub
  37. gosub
  38. Translate Points
  39. SOURCE Data File:O
  40. TARGET Data File:O
  41.  F(Q,Y) =
  42.  G(Q,Y) =
  43. Translating PointsO
  44. ERRY&
  45. ERRY"
  46. ERRY"
  47. COMPUTE
  48. FUNC1$
  49. RANGE
  50. FUNC2$
  51. FUNC3$
  52. Runge-Kutta
  53. Use formula from graph:+
  54. One,Two,Three,Other
  55. Runge-Kutta
  56. Initial Q (X) :*/
  57. B}Tj*/
  58. Final Q (X) :
  59. Initial Y :*/
  60. B}Tj*/
  61. Number Of Steps :O
  62. dY/dQ (Q,Y) :
  63. Create File Of Data Points :+
  64. Yes,No
  65. Select Filename
  66. +"Existing files will be overwrittenO
  67. Data Points File :O
  68. Doing Runge-KuttaO
  69. ERRY&
  70. ERRY&
  71. Runge-Kutta
  72. Final Q (X) :
  73. +    Final Y :
  74. Data Points In FileO
  75. Error: took dy/dq=0O
  76. FUNC1$
  77. FUNC2$
  78. FUNC3$
  79. Linear Graph Fit
  80. Date Name:O
  81. Type Of Fit:+
  82. Unweighted,Weighted
  83. Graph Fitting...O
  84. ERRY&
  85. ERRY"
  86. ERRY&
  87. ERRY"
  88. ERRY"
  89. ERRY&
  90. ERRY"
  91. ERRY"
  92. Analysing Fit...O
  93. ERRY&
  94. ERRY"
  95. ERRY"
  96. ERRY"
  97. ERRY"
  98. Unweighted Linear Graph Fit (
  99.  Points)K
  100. Weighted Linear Graph Fit (
  101.  Points)K
  102. Y = M*Q + CO
  103. Gradient M=
  104. Standard error(M)=
  105. Y-Intercept C=
  106. Standard error(C)=
  107. Correlation Coeff=
  108. Unweighted Linear Graph Fit (
  109.  Points)K
  110. Weighted Linear Graph Fit (
  111.  Points)K
  112. Y = M*Q + CO
  113. R.M.S. Deviation=
  114. Q-Intercept =
  115. Standard error =
  116. No Q-InterceptO
  117. X-bar=
  118. Y-bar=
  119. Linear Graph Fit
  120. +"Do you wish to plot this function:+
  121. Yes,No
  122. Graph Number:+
  123. One,Two,Three
  124. Linear Graph Fit
  125. +"Fitted linear graph now programmedO
  126. into graph 
  127. Linear Graph Fit
  128. Linear Graph Fit Failed!
  129. COMPUTE
  130. FUNC3$
  131. FUNC2$
  132. FUNC1$
  133. SIN(Q)
  134. Evaluate F(Q)
  135. Function From Graph:+
  136. One,Two,Three,Other
  137. B}Tj*/
  138. Function (Other):
  139. Evaluate F(Q)
  140. F(Q)=
  141. CancelO
  142. ContinueO
  143. SOLSIMS
  144. ARRAY
  145. FUNC1$
  146. FUNC2$
  147. FUNC3$
  148. OZ4[ 
  149. Polynomial Graph Fit
  150. Data Name:O
  151. Degree Of Fit:+
  152. 1,2,3,4,5,6,7,8
  153. Graph Fitting (
  154. VOd|RO
  155. Solving Sims...O
  156. O    4[ 
  157. *Q**K
  158. |ZRJO
  159. |ZRJO
  160. |ZRJO
  161. |ZRJO
  162. |ZRJO
  163. |ZRJO    
  164. |ZRJ+
  165. Polynomial Graph Fit (degree 
  166. Determinant is 
  167. R.M.S. Fit=
  168.  Data PointsKO
  169. Polynomial Graph Fit (degree 
  170. Coefficient C
  171. Polynomial Graph Fit (degree 
  172. Polynomial Graph Fit (degree 
  173. +"Do you wish to plot this function:+
  174. Yes,No
  175. Graph Number:+
  176. One,Two,Three
  177. Polynomial Graph Fit (degree 
  178. + Fitted polynomial now programmedO
  179. into graph 
  180. Polynomial Graph Fit (degree 
  181. +$Too big a polynomial to attempt plot
  182. Polynomial Graph Fit
  183. +!Not enough data to fit this graph
  184. COMPUTE
  185. FUNC1$
  186. FUNC2$
  187. FUNC3$
  188. Newton-Raphson Iteration
  189. Use formula from graph:+
  190. One,Two,Three,Other
  191. Newton-Raphson Iteration
  192. F(Q)=
  193. Q starting value:*/
  194. B}Tj*/
  195. Newton Raphson IterationW2LO
  196. Newton Raphson Iteration
  197. F(Q) 
  198. Newton Raphson Iteration
  199. Derivative uncalculable atO
  200. SOLSIMS
  201. ARRAY
  202. OZ4[ 
  203. Determinants Solver
  204. Matrix width/height:+
  205. 2,3,4,5,6,7,8,9
  206. Determinants - Row 
  207. Column 
  208. B}Tj*/
  209. Determinants - Row 
  210. Column 
  211. B}Tj*/
  212. Finding Determinant...O
  213. Determinants Solver
  214. Determinant is 
  215. SOLSIMS
  216. ARRAY
  217. OZ4[ 
  218. Simultaneous Equations
  219. Number Unknowns:+
  220. 2,3,4,5,6,7,8,9
  221. H4\[G
  222. B}Tj*/
  223. B}Tj*/
  224. Solving Sims...O
  225. Sims Solutions
  226. Sims Solutions
  227. Sims Solutions
  228. Determinant=
  229. Sims Solutions
  230. No one solution
  231. ARRAY
  232. PROCG
  233. RANGE
  234. Plot Points
  235. Data Name:O
  236. Plot Points
  237. Graph Number:+
  238. One,Two,Three
  239. Range Setting:+
  240. Auto,Current
  241. Plot Function Too:+
  242. No,Yes
  243. Plot Y Error:+
  244. No,Yes
  245. Include (0,0) on axis?O
  246. YesOY+
  247. W7Oy@
  248. ERRY"
  249. ERRY"
  250. ERRY"
  251. ERRY"
  252. ERRY"
  253. ERRY"
  254. @Q@RN
  255. ERRY"
  256. @Q@RWBMx
  257. ERRY"
  258. @Q@RWBQIx
  259. Edit Points
  260. Data Name:O
  261. Edit Points
  262. +%Do you wish to change current points?
  263. YesOY+
  264. W7Oy@[u
  265. YERR"
  266. Edit Points
  267. Data Point: 
  268. Q (or X) Coord:*a
  269. Y Coord:*a
  270. Err in Y Coord:O
  271. Delete Point:+
  272. No,Yes
  273. YERR&
  274. YERR"
  275. Err in Y Coord taken as 1O
  276. YERR&
  277. Edit Points - Add Point 
  278. Q (or X) Coord:*a
  279. Y Coord:*a
  280. Err in Y Coord:O
  281. CancelO
  282. AcceptO
  283. YERR&
  284. YERR"
  285. Err in Y Coord taken as 1O
  286. YERR&
  287. RANGE
  288. FUNC1$
  289. FUNC2$
  290. FUNC3$
  291. Graph 0 InformationW2LO
  292. Graph 
  293.  InformationK
  294. <= Q <=KO
  295. <= Y <=KO
  296. F(Q)=
  297. PROCG
  298. Clear & Replot
  299. Graph Number:+
  300. One,Two,Three,(ALL)
  301. Which Graph?O
  302. PROCG
  303. FUNC1$
  304. FUNC2$
  305. FUNC3$
  306. +    Functions
  307. Graph Number:+
  308. One,Two,Three
  309. F(Q)=
  310. Function Not Changed
  311. PROCG
  312. RANGE
  313. Ranges
  314. Graph Number:+
  315. One,Two,Three
  316. Ranges (Graph 
  317. Minimum Q:*a
  318. Maximum Q:*a
  319. Minimum Y:*a
  320. Maximum Y:*a
  321. Invalid Ranges - Not Set
  322. FLAG%
  323. Are you sure?O
  324. YesOY+
  325. RANGE
  326. @Q@RN
  327. Plotting Graph 
  328. Om4`[
  329. Escape
  330. Do you wish to abort plottingO
  331. graph 
  332. YesOY+
  333. W7Oy@[
  334. Plotting Graph 
  335. RANGE
  336. FUNC3$
  337. FUNC2$
  338. FUNC1$
  339. Function Undefined
  340. At Q=
  341. Enter Y value:*a
  342. @Q@RN
  343. @Q@RN
  344. Help: Graph(
  345. Graphs(
  346. Points(
  347. Maths(
  348. Info(
  349. Help: Graphs(
  350. Ranges(
  351. +    Functions(
  352. Show(
  353. Clear(
  354. Info(
  355. Help: Ranges(
  356. +$A graph plotting program which won't
  357. +#let you change the range you view a
  358. +#graph over would be pretty useless.
  359. +"This graph plotting program isn't.
  360. +$When you change a graph's range, the
  361. +#most recent function is re-plotted.
  362. Help: Functions(
  363. +!Functions to be plotted/evaluated
  364. +"should be entered in computer type
  365. +#algebra, with Q (not X) as ordinate
  366. + variable. Consult the Psion user
  367. + manual for the EVAL/Calc format.
  368. Help: Show(
  369. +%GRAPH has three graph plotting areas.
  370. +&These are numbered 1 to 3. Use SHOW to
  371. select a graph to view.
  372. Help: Clear(
  373. +"If you wish to clear one or all of
  374. +#the graph plotting areas, then this
  375. +!is the menu option to select. The
  376. +!graph(s) will be cleared, and the
  377. +!last function will be re-plotted.
  378. Help: Info(
  379. +$Selecting this menu option will show
  380. +$you the current ranges and functions
  381. +#on each of the three graph plotting
  382. +$areas. If a function is too complex,
  383. +#it will not fit on the Info window.
  384. Help: Points(
  385. Plot Points(
  386. Edit Points(
  387. Translate Points(
  388. Polynomial Graph Fit(
  389. Linear Graph Fit(
  390. Evaluate F(Q)(
  391. Help: Plot Points(
  392. +%One of the most interesting things to
  393. +#be done with data points is to plot
  394. +$them. To satisfy the natural urge in
  395. +"us all to plot data points, select
  396. this option.
  397. Help: Edit Points(
  398. +$It is often useful to be able to put
  399. +#your own data into a graph plotting
  400. +#program. I wouldn't want to deprive
  401. +%you, so use this option to edit/enter
  402. data points.
  403. Help: Translate Points(
  404. +$When you have created a file of data
  405. +&points, you way wish to translate them
  406. +%to a new set. eg: translate all the Y
  407. +'coordinates to Y**2 or SIN(Y). Use this
  408. option to do so.
  409. Help: Polynomial Graph Fit(
  410. +#You can fit polynomials of the form
  411. Y = C0 + C1*Q + C2*Q**2 ...
  412. +$Fitted polynomials of up to degree 5
  413. +"can be plotted, either with or not
  414. +"with the data points which the fit
  415. was calculated from.
  416. Help: Linear Graph Fit(
  417. +#A linear graph fit is just a degree
  418. +%one polynomial fit. You get, however,
  419. +!more statistical analysis on this
  420. +"menu selection. Note that for this
  421. +#as for polynomial fitting, you need
  422. +&to have created a file of data points.
  423. Help: Evaluate F(Q)(
  424. +$To make life easy, you can find F(Q)
  425. +&for one of the three graphed functions
  426. +#or for a different function entered
  427. by you.
  428. Help: Maths(
  429. Runge-Kutta(
  430. Newton Raphson(
  431. Sims Equations(
  432. Determinants(
  433. Help: Runge-Kutta(
  434. +%A cunning way to integrate a function
  435. +"over a specified range (in Q). The
  436. function to be integrated is a
  437. function of Q (X) and Y.
  438. Help: Newton Raphson(
  439. +$Use this to solve F(Q)=0, where F(Q)
  440. +"comes from one of the three graphs
  441. or is entered specifically.
  442. Help: Sims Equations(
  443. +$You know the score; you want to know
  444. +#what the prices of bits of food are
  445. +#from deviously constructed shopping
  446. lists. Look no further!
  447. Help: Determinants(
  448. +"Gives the determinant of up to 9x9
  449. +"matricies. Sims Eqs also gives the
  450. `determinant' of the matrix.
  451. Help: Info(
  452. Graph : Version 1.9O
  453.  G Essex-Lopresti 1993O
  454. +&This program may be freely copied, butO
  455. +&I accept no blame for any way in whichO
  456. +#it affects your standard of living.O
  457. START2
  458. GOSUBT
  459. GOSUBK
  460. DYDXp
  461. GOSUBLt
  462. GOSUBV>
  463. GOSUBP
  464. GOSUBNb
  465. COMPUTE
  466. GOSUBD
  467. GOSUBZ
  468. SOLSIMST%
  469. GOSUBO
  470. GOSUBE
  471. GOSUBIG2
  472. GOSUBC
  473. GOSUBS
  474. GOSUBF75
  475. GOSUBR/6
  476. GOSUBX(8
  477. AXIS{8
  478. PROCG
  479. PLOT,;
  480.